home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Modem Speed 1.xpl < prev    next >
Text File  |  2001-04-09  |  3KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="Modem Speed"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Allow for speeds up to 921600bps for 56k modems"
  8. "DESCRIPTION 1"="WARNING: Using a high maximum speed may adversely affect your modem's performance. While in most cases you can experiment with different speeds, there is a possibility that you could damage your modem. You have been warned!"
  9. "DESCRIPTION 2"="If you take a look at your modem properties in Control Panel (Open the Modem applet, click on your modem, choose Properties and then click on the General Tab), you'll see that your modem has a maximum speed of 115200bps, or lower."
  10. "DESCRIPTION 3"="If you have a UART-compatible 56k modem, then you can increase this speed up to a maximum of 921600bps (900Kbps). The plug-in won't change the speed automatically, it will simply allow you to set it to a faster level using the Modem control panel applet."
  11. "DESCRIPTION 4"="De-activating the option should restore your modem's settings to their original state should you have problems."
  12. "DESCRIPTION 5"="NOTE: This plug-in will alter the maximum speed value for the first modem it finds - if you have more than one modem, please see the "Faster 56k Modem" topic at http://user.aol.com/axcel216/reg.htm for more information."
  13. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] for this tip!"
  14. "VERSION"="1.01"
  15. "WARNING"="Increasing the maximum speed of your modem, particularly if it is an older modem, may cause serious problems. Only change this option if you are really sure you want to do so."
  16. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "CONTACTURL"="http://www.neilrt.cwc.net/"
  19.  
  20. sP="HKLM\System\CurrentControlSet\Services\Class\Modem\0000\"
  21. sV="80010000ff000000ff000000070000000f0000007707000000100E0000FA0000"
  22.  
  23. SUB Plugin_Initialize
  24.  s=RegReadValue(sP&"OldProperties")
  25.  if IsEmpty(s)=false then
  26.   Call SetUIElement(1,true)
  27.  end if
  28. END SUB
  29.  
  30. SUB Plugin_CheckData(ElementIndex)
  31. END SUB
  32.  
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  s=GetUIElement(1)
  35.  if s=true then
  36.   i=RegReadValue(sP&"Properties")
  37.   if i<>sV then
  38.    Call RegWriteValue(sP&"OldProperties",i,3)
  39.    Call RegWriteValue(sP&"Properties",sV,3) 
  40.   end if
  41.  else
  42.   i=RegReadValue(sP&"OldProperties")
  43.   if IsEmpty(i)=false then
  44.    Call RegWriteValue(sP&"Properties",i,3)
  45.    Call RegDeleteValue(sP&"OldProperties")
  46.   end if
  47.  end if
  48. END SUB
  49.  
  50. SUB Plugin_Terminate
  51. END SUB
  52.